home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / progming / bcl / bcldemo.bas < prev    next >
Encoding:
BASIC Source File  |  1993-11-17  |  20.9 KB  |  413 lines
  1. '  **************************************************************************
  2. '  **                                                                      **
  3. '  **                   BARCODES-LITE (REV 1.0.0) 11/1993                  **
  4. '  **                                                                      **
  5. '  **************************************************************************
  6. '  **                    PROPRIETARY SOFTWARE STATEMENT                    **
  7. '  **************************************************************************
  8. '  **                                                                      **
  9. '  **   GRAFTech Development Corporation grants you a non-exclusive,       **
  10. '  **   non-transferable license to use this copy of the program and       **
  11. '  **   accompanying documentation according to the terms of the           **
  12. '  **   software license agreement.                                        **
  13. '  **                                                                      **
  14. '  **   In the event you elect to modify, customize or change part of      **
  15. '  **   this program, this proprietary statement must remain a part of     **
  16. '  **   the altered program, in no event and under no circumstances may    **
  17. '  **   this statement be removed without the prior express written        **
  18. '  **   consent of GRAFTech Development Corporation.                       **
  19. '  **                                                                      **
  20. '  **   This program along with any alterations you may elect to make      **
  21. '  **   remains the sole property of GRAFTech Development Corporation.     **
  22. '  **                                                                      **
  23. '  **   Copyright (c) 1988-93 - GRAFTech Development Corporation           **
  24. '  **     All Rights Reserved                                              **
  25. '  **                                                                      **
  26. '  **************************************************************************
  27. '
  28. '
  29. '  PROGRAM TITLE:  Bar Code Developers Library - Lite (Demonstration)
  30. '
  31. '
  32. ' ******************************************************************************
  33. ' **                                                                          **
  34. ' **                                                                          **
  35. ' ** BCLITE (BCL.DATA$) - COMPOUND VARIABLE DEFINITION                        **
  36. ' **                                                                          **
  37. ' **                                                                          **
  38. ' ******************************************************************************
  39. ' **                                                                          **
  40. ' **                                                                          **
  41. ' **  VARIABLE: BCL.DATA$ (LEN=41)                                            **
  42. ' **                                                                          **
  43. ' **                                                                          **
  44. ' ******************************************************************************
  45. ' **                                                                          **
  46. ' **                                                                          **
  47. ' **                                                            POSITION      **
  48. ' **  INFORMATION                              LENGTH        FIRST     LAST   **
  49. ' **                                                                          **
  50. ' **                                                                          **
  51. ' ******************************************************************************
  52. ' **                                                                          **
  53. ' **                                                                          **
  54. ' **  PRINTER IDENTIFICATION                      3           001       003   **
  55. ' **    [E01] EPSON 9 PIN ESC/P                                               **
  56. ' **            60/120/240 x 216 dpi                                          **
  57. ' **    [E02] EPSON 24 PIN ESC/P2                                             **
  58. ' **            180 x 180 dpi                                                 **
  59. ' **    [I01] IBM GRAPHICS                                                    **
  60. ' **            60/120/240 x 180 dpi                                          **
  61. ' **    [O01] OKIDATA OKIGRAPHICS                                             **
  62. ' **            60/120/240 x 144 dpi                                          **
  63. ' **                                                                          **
  64. ' **  PRINT DENSITY                               1           004       004   **
  65. ' **    [S] SINGLE DENSITY                                                    **
  66. ' **    [D] DOUBLE DENSITY                                                    **
  67. ' **    [Q] QUAD DENSITY                                                      **
  68. ' **                                                                          **
  69. ' **  HORIZONTAL SPACING                          3           005       007   **
  70. ' **    [0] THRU [132]                                                        **
  71. ' **                                                                          **
  72. ' **  RESERVED FOR FUTURE USE                     1           008       008   **
  73. ' **                                                                          **
  74. ' **  BAR CODE HEIGHT                             1           009       009   **
  75. ' **    [0] - 1 LINE HEIGHT (NO LINE FEED AND NO HEADER)                      **
  76. ' **    [1] - 1 LINE HEIGHT (WITH LINE FEED)                                  **
  77. ' **    [2] - 2 LINE HEIGHT (WITH LINE FEED)                                  **
  78. ' **    [3] - 3 LINE HEIGHT (WITH LINE FEED)                                  **
  79. ' **    [4] - 4 LINE HEIGHT (WITH LINE FEED)                                  **
  80. ' **    [5] - 5 LINE HEIGHT (WITH LINE FEED)                                  **
  81. ' **    [6] - 6 LINE HEIGHT (WITH LINE FEED)                                  **
  82. ' **    [7] - 7 LINE HEIGHT (WITH LINE FEED)                                  **
  83. ' **    [8] - 8 LINE HEIGHT (WITH LINE FEED)                                  **
  84. ' **    [9] - 9 LINE HEIGHT (WITH LINE FEED)                                  **
  85. ' **                                                                          **
  86. ' **  BAR CODE HEADER                             1           010       010   **
  87. ' **    [T] PRINT BAR CODE HEADER ABOVE BAR CODE                              **
  88. ' **    [B] PRINT BAR CODE HEADER BELOW BAR CODE                              **
  89. ' **    [N] DO NOT PRINT BAR CODE HEADER                                      **
  90. ' **                                                                          **
  91. ' **  BAR CODE SYMBOLOGY CODE                     1           011       011   **
  92. ' **    [1] SYMBOLOGY UPC VERSION A                                           **
  93. ' **    [2] SYMBOLOGY UPC VERSION E                                           **
  94. ' **    [3] SYMBOLOGY UPC/EAN/IAN - 13                                        **
  95. ' **    [4] SYMBOLOGY UPC/EAN/IAN - 8                                         **
  96. ' **    [5] SYMBOLOGY INTERLEAVED 2 OF 5 - COMMERCIAL LENGTH                  **
  97. ' **    [6] SYMBOLOGY INTERLEAVED 2 OF 5 - VARIABLE                           **
  98. ' **    [7] SYMBOLOGY CODE 3 OF 9 - NO CHECK DIGIT                            **
  99. ' **    [8] SYMBOLOGY CODE 3 OF 9 - CHECK DIGIT                               **
  100. ' **    [9] SYMBOLOGY CODE 128 - SERIES "A"                                   **
  101. ' **                                                                          **
  102. ' **  BAR CODE DATA                              28           012       039   **
  103. ' **    ANY VALID CHARACTERS FOR SPECIFIED                                    **
  104. ' **      BAR CODE SYMBOLOGY                                                  **
  105. ' **                                                                          **
  106. ' **  BAR CODE CHECK DIGIT                        1           040       040   **
  107. ' **    CALCULATED BY BARCODES-LITE AND RETURNED                              **
  108. ' **      TO CALLING PROGRAM                                                  **
  109. ' **                                                                          **
  110. ' **  BAR CODE ERROR STATUS CODE                  1           041       041   **
  111. ' **    CALCULATED BY BARCODES-LITE AND RETURNED                              **
  112. ' **      TO CALLING PROGRAM                                                  **
  113. ' **    [0] NO ERROR OCCURED                                                  **
  114. ' **    [1] INVALID PRINTER IDENTIFICATION SELECTED                           **
  115. ' **    [2] INVALID DENSITY SELECTION OR NOT AVAILABLE ON SELECTED PRINTER    **
  116. ' **    [3] INVALID HORIZONTAL SPACING SELECTED                               **
  117. ' **    [4] INVALID BAR CODE HEIGHT SELECTED                                  **
  118. ' **    [5] INVALID BAR CODE HEADER SELECTED                                  **
  119. ' **    [6] INVALID BAR CODE TYPE SELECTED                                    **
  120. ' **    [7] INVALID BAR CODE DATA CHARACTERS                                  **
  121. ' **    [8] INVALID BAR CODE DATA LENGTH                                      **
  122. ' **    [9] RESERVED FOR FUTURE USE                                           **
  123. ' **                                                                          **
  124. ' **    THE FOLLOWING AVAILABLE FOR COMPILERS THAT ALLOW LOCAL ERROR TRAPPING **
  125. ' **                                                                          **
  126. ' **    [A] DEVICE TIMEOUT                                                    **
  127. ' **    [B] DEVICE FAULT                                                      **
  128. ' **    [C] DEVICE OUT OF PAPER                                               **
  129. ' **    [D] DEVICE LUN NOT OPENED                                             **
  130. ' **    [E] DEVICE I/O ERROR                                                  **
  131. ' **    [F] DEVICE UNAVAILABLE                                                **
  132. ' **    [G] DEVICE COMMUNICATIONS BUFFER OVERFLOW                             **
  133. ' **    [P] DEVICE ERROR - UNKNOWN ORIGIN                                     **
  134. ' **    [V] DEVICE ERROR - DISK FULL                                          **
  135. ' **    [W] DEVICE ERROR - PERMISSION DENIED                                  **
  136. ' **    [X] DEVICE ERROR - DISK NOT READY                                     **
  137. ' **    [Y] DEVICE ERROR - DISK MEDIA ERROR                                   **
  138. ' **    [Z] APPLICATION ERROR OF UNKNOWN ORIGIN                               **
  139. ' **                                                                          **
  140. ' **                                                                          **
  141. ' ******************************************************************************
  142. '
  143. '
  144. '
  145.     DECLARE SUB BCLITE (BCL.DATA$, BCL.LUN)
  146. '
  147. ' >>>>>> OPEN PRINTER ON FILE NUMBER ONE <<<<<<
  148. '
  149.     BCL.LUN = 1                            ' SET PRINTER LOGICAL UNIT NUMBER
  150.     WIDTH "LPT1:", 255                     ' SET PRINTER PORT FOR CONTINUOUS
  151.     OPEN "LPT1:BIN" FOR OUTPUT AS BCL.LUN  ' OPEN PRINTER IN BINARY MODE
  152. '
  153. ' >>>>>> DEMONSTRATION SCREEN DISPLAY <<<<<<
  154. '
  155.     TP$ = CHR$(16) + CHR$(32) + CHR$(32) + CHR$(32)
  156.     CLS
  157.     GOSUB F001
  158.     GOSUB F002
  159.     GOSUB F003
  160.     '
  161. ENTRY1:
  162.     '
  163.     COLOR 1, 7
  164.     LOCATE 17, 1: PRINT SPACE$(80);
  165.     LOCATE 17, 5: PRINT "Enter [T]arget Printer, [P]rint, [R]egistration Benefits or [E]nd:";
  166.     LOCATE 17, 73:
  167.     DO: A$ = INKEY$: LOOP UNTIL A$ <> ""
  168.     A$ = UCASE$(A$)
  169.     LOCATE 17, 73: PRINT A$;
  170.     IF A$ = "E" THEN GOTO SAMPLE.END
  171.     IF A$ = "R" THEN GOSUB F004
  172.     IF A$ = "T" THEN
  173.         IF CHR$(16) = MID$(TP$, 1, 1) THEN
  174.             TP$ = CHR$(32) + CHR$(16) + CHR$(32) + CHR$(32)
  175.             GOTO ENTRY2
  176.         END IF
  177.         IF CHR$(16) = MID$(TP$, 2, 1) THEN
  178.             TP$ = CHR$(32) + CHR$(32) + CHR$(16) + CHR$(32)
  179.             GOTO ENTRY2
  180.         END IF
  181.         IF CHR$(16) = MID$(TP$, 3, 1) THEN
  182.             TP$ = CHR$(32) + CHR$(32) + CHR$(32) + CHR$(16)
  183.             GOTO ENTRY2
  184.         END IF
  185.         IF CHR$(16) = MID$(TP$, 4, 1) THEN
  186.             TP$ = CHR$(16) + CHR$(32) + CHR$(32) + CHR$(32)
  187.             GOTO ENTRY2
  188.         END IF
  189. ENTRY2:    
  190.         GOSUB F003
  191.     END IF
  192.     IF A$ = "P" THEN GOSUB SAMPLE
  193.     GOTO ENTRY1
  194. '
  195. ' >>>>>> SET FIXED CALL ARGUMENT ELEMENTS <<<<<<
  196. '
  197. SAMPLE:
  198.     '
  199.     BCL.DATA$ = SPACE$(41)
  200.     IF CHR$(16) = MID$(TP$, 1, 1) THEN
  201.         MID$(BCL.DATA$, 1, 3) = "E01"      ' SET PRINTER IDENTIFICAITON
  202.     END IF
  203.     IF CHR$(16) = MID$(TP$, 2, 1) THEN
  204.         MID$(BCL.DATA$, 1, 3) = "E02"      ' SET PRINTER IDENTIFICAITON
  205.     END IF
  206.     IF CHR$(16) = MID$(TP$, 3, 1) THEN
  207.         MID$(BCL.DATA$, 1, 3) = "I01"      ' SET PRINTER IDENTIFICAITON
  208.     END IF
  209.     IF CHR$(16) = MID$(TP$, 4, 1) THEN
  210.         MID$(BCL.DATA$, 1, 3) = "O01"      ' SET PRINTER IDENTIFICAITON
  211.     END IF
  212.     MID$(BCL.DATA$, 4, 1) = "D"            ' SET PRINT DENSITY
  213.     MID$(BCL.DATA$, 5, 3) = "043"          ' SET PRINT INDENT
  214.     MID$(BCL.DATA$, 8, 1) = " "            ' RESERVED FOR FUTURE USE
  215.     MID$(BCL.DATA$, 9, 1) = "0"            ' SET PRINT HEIGHT
  216.     MID$(BCL.DATA$, 10, 1) = "N"           ' SET HEADER CODE
  217. '
  218. ' >>>>>> DEMONSTRATION BAR CODE PRINT <<<<<<
  219. '
  220.     GOSUB PAGE.HEADER
  221.     MID$(BCL.DATA$, 11, 1) = "1"           ' SET SYMBOLOGY
  222.     MID$(BCL.DATA$, 12, 28) = "78211300045                 "
  223.     MID$(BCL.DATA$, 40, 1) = " "           ' SET CHECK DIGIT
  224.     MID$(BCL.DATA$, 41, 1) = " "           ' RESET ERROR CODE
  225.     GOSUB BAR.HEADER
  226.     MID$(BCL.DATA$, 11, 1) = "2"
  227.     MID$(BCL.DATA$, 12, 28) = "02820000895                 "
  228.     MID$(BCL.DATA$, 40, 1) = " "
  229.     MID$(BCL.DATA$, 41, 1) = " "
  230.     GOSUB BAR.HEADER
  231.     MID$(BCL.DATA$, 11, 1) = "3"
  232.     MID$(BCL.DATA$, 12, 28) = "078211300045                "
  233.     MID$(BCL.DATA$, 40, 1) = " "
  234.     MID$(BCL.DATA$, 41, 1) = " "
  235.     GOSUB BAR.HEADER
  236.     MID$(BCL.DATA$, 11, 1) = "4"
  237.     MID$(BCL.DATA$, 12, 28) = "2664345                     "
  238.     MID$(BCL.DATA$, 40, 1) = " "
  239.     MID$(BCL.DATA$, 41, 1) = " "
  240.     GOSUB BAR.HEADER
  241.     MID$(BCL.DATA$, 11, 1) = "5"
  242.     MID$(BCL.DATA$, 12, 28) = "1078211300054               "
  243.     MID$(BCL.DATA$, 40, 1) = " "
  244.     MID$(BCL.DATA$, 41, 1) = " "
  245.     GOSUB BAR.HEADER
  246.     MID$(BCL.DATA$, 11, 1) = "6"
  247.     MID$(BCL.DATA$, 12, 28) = "10782113054                 "
  248.     MID$(BCL.DATA$, 40, 1) = " "
  249.     MID$(BCL.DATA$, 41, 1) = " "
  250.     GOSUB BAR.HEADER
  251.     MID$(BCL.DATA$, 11, 1) = "7"
  252.     MID$(BCL.DATA$, 12, 28) = "30501                       "
  253.     MID$(BCL.DATA$, 40, 1) = " "
  254.     MID$(BCL.DATA$, 41, 1) = " "
  255.     GOSUB BAR.HEADER
  256.     MID$(BCL.DATA$, 11, 1) = "8"
  257.     MID$(BCL.DATA$, 12, 28) = "30501                       "
  258.     MID$(BCL.DATA$, 40, 1) = " "
  259.     MID$(BCL.DATA$, 41, 1) = " "
  260.     GOSUB BAR.HEADER
  261.     MID$(BCL.DATA$, 11, 1) = "9"
  262.     MID$(BCL.DATA$, 12, 28) = "ABC123                      "
  263.     MID$(BCL.DATA$, 40, 1) = " "
  264.     MID$(BCL.DATA$, 41, 1) = " "
  265.     GOSUB BAR.HEADER
  266.     GOSUB PAGE.FOOTER
  267.     RETURN
  268.     '
  269. PAGE.HEADER:
  270.     '
  271.     PRINT #BCL.LUN, ""
  272.     PRINT #BCL.LUN, ""
  273.     PRINT #BCL.LUN, ""
  274.     PRINT #BCL.LUN, ""
  275.     PRINT #BCL.LUN, "     ││█│││█││ GRAFTech's"
  276.     PRINT #BCL.LUN, "     ││█│││█││ BARCODES-LITE Developers Library"
  277.     PRINT #BCL.LUN, "     ││█│││█││ ──────────────────────────────────────────────────────────"
  278.     PRINT #BCL.LUN, "     ││█│││█││ The Next Generation Of Business Software"
  279.     PRINT #BCL.LUN, ""
  280.     PRINT #BCL.LUN, ""
  281.     PRINT #BCL.LUN, ""
  282.     PRINT #BCL.LUN, ""
  283.     PRINT #BCL.LUN, ""
  284.     PRINT #BCL.LUN, "     With BARCODES-LITE, creating professional bar code applications can"
  285.     PRINT #BCL.LUN, "     be as simple as deciding where you want bar codes and placing a few"
  286.     PRINT #BCL.LUN, "     simple program statements into your existing application programs."
  287.     PRINT #BCL.LUN, "     There's no special hardware to buy and no arcane control sequences"
  288.     PRINT #BCL.LUN, "     to learn.  Supporting hundreds of printers, BARCODES-LITE helps you"
  289.     PRINT #BCL.LUN, "     create professional, high-performance business applications, fast."
  290.     PRINT #BCL.LUN, ""
  291.     PRINT #BCL.LUN, ""
  292.     PRINT #BCL.LUN, ""
  293.     PRINT #BCL.LUN, "     Bar Code Symbology                    Bar Code Specimen";
  294.     RETURN
  295.     '
  296. BAR.HEADER:
  297.     '
  298.     PRINT #BCL.LUN, ""
  299.     PRINT #BCL.LUN, ""
  300.     PRINT #BCL.LUN, ""
  301.     PRINT #BCL.LUN, SPC(5);
  302.     IF MID$(BCL.DATA$, 11, 1) = "1" THEN PRINT #BCL.LUN, "UPC Version A";
  303.     IF MID$(BCL.DATA$, 11, 1) = "2" THEN PRINT #BCL.LUN, "UPC Version E";
  304.     IF MID$(BCL.DATA$, 11, 1) = "3" THEN PRINT #BCL.LUN, "UPC/EAN/IAN-13";
  305.     IF MID$(BCL.DATA$, 11, 1) = "4" THEN PRINT #BCL.LUN, "UPC/EAN/IAN-8";
  306.     IF MID$(BCL.DATA$, 11, 1) = "5" THEN PRINT #BCL.LUN, "Interleaved 2 of 5 - Commercial";
  307.     IF MID$(BCL.DATA$, 11, 1) = "6" THEN PRINT #BCL.LUN, "Interleaved 2 of 5 - Variable";
  308.     IF MID$(BCL.DATA$, 11, 1) = "7" THEN PRINT #BCL.LUN, "Code 3 of 9 - No Check Digit";
  309.     IF MID$(BCL.DATA$, 11, 1) = "8" THEN PRINT #BCL.LUN, "Code 3 of 9 - With Check Digit";
  310.     IF MID$(BCL.DATA$, 11, 1) = "9" THEN PRINT #BCL.LUN, "Code 128 - Series 'A'";
  311. '
  312. ' >>>>>> CALL BAR CODE LIBRARY <<<<<<
  313. '
  314.     CALL BCLITE(BCL.DATA$, BCL.LUN)
  315. '
  316. ' >>>>>> VERIFY RETURN ERROR CODE <<<<<<
  317. '
  318. '   IF "0" <> MID$(BCL.DATA$, 41, 1) THEN GOTO xxxx
  319. '
  320.     RETURN
  321.     '
  322. PAGE.FOOTER:
  323.     '
  324.     PRINT #BCL.LUN, ""
  325.     PRINT #BCL.LUN, ""
  326.     PRINT #BCL.LUN, ""
  327.     PRINT #BCL.LUN, ""
  328.     PRINT #BCL.LUN, ""
  329.     PRINT #BCL.LUN, "     BARCODES-LITE . . ."
  330.     PRINT #BCL.LUN, "          The Professionals Choice For Professional Bar Code Development."
  331.     PRINT #BCL.LUN, ""
  332.     PRINT #BCL.LUN, ""
  333.     PRINT #BCL.LUN, ""
  334.     PRINT #BCL.LUN, " Copyright (c) 1988-93 - GRAFTech Development Corporation - All Rights Reserved"
  335.     PRINT #BCL.LUN, CHR$(12);
  336.     RETURN
  337.     '
  338. F001:
  339.     '
  340.     COLOR 15, 1
  341.     LOCATE 1, 1: PRINT SPACE$(80);
  342.     LOCATE 1, 2: PRINT DATE$;
  343.     LOCATE 1, 26: PRINT "BARCODES-LITE Demonstration"
  344.     LOCATE 1, 72: PRINT TIME$;
  345.     COLOR 1, 7
  346.     FOR X = 2 TO 23
  347.         LOCATE X, 1: PRINT SPACE$(80);
  348.     NEXT X
  349.     COLOR 15, 1
  350.     LOCATE 24, 1: PRINT SPACE$(80);
  351.     LOCATE 24, 1: PRINT " Copyright (c) 1988-93 - GRAFTech Development Corporation - All Rights Reserved";
  352.     RETURN
  353.     '
  354. F002:
  355.     '
  356.     COLOR 1, 7
  357.     LOCATE 3, 3: PRINT "││█│││█││ GRAFTech's";
  358.     LOCATE 4, 3: PRINT "││█│││█││ BARCODES-LITE Developers Library";
  359.     LOCATE 5, 3: PRINT "││█│││█││ ──────────────────────────────────────────────────────────────────";
  360.     LOCATE 6, 3: PRINT "││█│││█││ The Next Generation Of Business Software";
  361.     LOCATE 10, 5: PRINT "Target Printer";
  362.     LOCATE 12, 10: PRINT "Epson and Compatibles";
  363.     LOCATE 13, 10: PRINT "Epson 24 Pin ESC/P2 and Compatibles";
  364.     LOCATE 14, 10: PRINT "IBM and Compatibles";
  365.     LOCATE 15, 10: PRINT "Okidata (OKI Graphics) and Compatibles";
  366.     LOCATE 20, 3: PRINT "BARCODES-LITE is a shareware program.  You are granted the right to use this";
  367.     LOCATE 21, 3: PRINT "program for a period of 30 days for evaluation and testing.  Registration is";
  368.     LOCATE 22, 3: PRINT "easy, simply complete the included registration form and mail to GRAFTech.";
  369.     RETURN
  370.     '
  371. F003:
  372.     '
  373.     LOCATE 12, 8: PRINT MID$(TP$, 1, 1);
  374.     LOCATE 13, 8: PRINT MID$(TP$, 2, 1);
  375.     LOCATE 14, 8: PRINT MID$(TP$, 3, 1);
  376.     LOCATE 15, 8: PRINT MID$(TP$, 4, 1);
  377.     RETURN
  378.     '
  379. F004:
  380.     '
  381.     PCOPY 0, 1
  382.     GOSUB F001
  383.     COLOR 1, 7
  384.     LOCATE 3, 3: PRINT "││█│││█││ GRAFTech's";
  385.     LOCATE 4, 3: PRINT "││█│││█││ BARCODES-LITE Developers Library";
  386.     LOCATE 5, 3: PRINT "││█│││█││ ──────────────────────────────────────────────────────────────────";
  387.     LOCATE 6, 3: PRINT "││█│││█││ The Next Generation Of Business Software";
  388.     LOCATE 8, 3: PRINT "BENEFITS OF REGISTRATION . . .";
  389.     LOCATE 9, 5: PRINT "Printed Manual";
  390.     LOCATE 10, 5: PRINT "Complete Source Coding";
  391.     LOCATE 11, 5: PRINT "Notification Of Updates";
  392.     LOCATE 12, 5: PRINT "Discounted Hardware and Software Offers";
  393.     LOCATE 13, 5: PRINT "  (Notification as Available)";
  394.     LOCATE 14, 5: PRINT "Royalty Free Distribution of Developed Applications";
  395.     LOCATE 16, 3: PRINT "SOURCE COMPATIBILITY . . .";
  396.     LOCATE 17, 5: PRINT "Microsoft QBASIC";
  397.     LOCATE 18, 5: PRINT "Microsoft QuickBASIC";
  398.     LOCATE 19, 5: PRINT "Microsoft BASIC Professional Development System";
  399.     LOCATE 20, 5: PRINT "Microsoft VisualBASIC for DOS";
  400.     LOCATE 21, 5: PRINT ". . . and, portable to other BASICs";
  401.     LOCATE 23, 48: PRINT "Press Any Key To Continue . . .";
  402.     DO: A$ = INKEY$: LOOP UNTIL A$ <> ""
  403.     PCOPY 1, 0
  404.     RETURN
  405.     '
  406. SAMPLE.END:
  407.     '
  408.     COLOR 7, 0
  409.     CLS
  410.     LOCATE 1, 1: PRINT "Thank you for trying BARCODES-LITE Developers Library!";
  411.     END
  412.  
  413.